home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb4.arc / GETKEYS.PAS < prev    next >
Pascal/Delphi Source File  |  1984-12-02  |  1KB  |  31 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.
  4.  
  5.  
  6. DRIVER for procedure GETKEYS(chr1,chr2)
  7.  
  8. Waits until a key is pressed, then returns ASCII char in chr1 and chr(0) in
  9. chr2 for standard ASCII characters, or chr(27) in chr1 and a code character
  10. in chr2 if an "escape sequence" character.  See KEYCHART.DAT for translation.
  11. NOTE that BACKSPACE and RETURN are not visible except by their activity--
  12. they still function!
  13.  
  14. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
  15. program GETKEYS;
  16.  
  17. {$I getkeys.lib}
  18. var
  19.   chr1, chr2 : char;
  20. begin
  21.   WriteLn('Press various keys.  Press <ESC> to quit.');
  22.   repeat
  23.     GetKeys(chr1,chr2);
  24.     if chr1 <> #27 then
  25.       WriteLn('Normal character ',chr1)
  26.     else
  27.       if chr2 <> #0 then
  28.         WriteLn('Special character ',chr2);
  29.   until (chr1 = #27) and (chr2 = #0);    {press ESC to get out of loop}
  30. end.
  31.